#Clear R
rm(list=ls())

###Study 1: Food Irradiation --------------------
## Code raw data in study 1
source("Study1_coding.R")
## Get results for study 1
source("Study1_results.R")
## Get Appendixes for study 1
source("Study1_appendix.R")

###Study 2: Farm Policy --------------------
## Code raw data in study 2
source("Study2_coding.R")
## Get results for study 2
source("Study2_results.R")
## Get Appendixes for study 2
source("Study2_appendix.R")

###Study 3: Replication Study 1 & 2 Assessment of Mechanism --------------------
## Code raw data in study 3
source("Study3_coding.R")
## Get results for study 3
source("Study3_results.R")

###Study 4: Replication Study 1 Assessment of Mechanism --------------------
## Code raw data in study 4
source("Study4_coding.R")
## Get results for study 4
source("Study4_analyses.R")

###Appendix: TTIP experiment --------------------
## Code raw data in study 5
source("Study5_TTIP_coding.R")
## Code raw data in study 5
source("Study5_TTIP_results.R")

###Appendix: Danish experiment --------------------
## Code raw data in study 5
source("Study6_DK_coding.R")
## Code raw data in study 5
source("Study6_DK_results.R")

###Individual Data Meta Analysis --------------------
## run to get meta-analysis and appendix E results
source("Pooled_Analyses.R")